Interactive Preview: Enemy of the State/Interactive Preview: Enemy of the State.iso/pc/alrtthis.dxr/00078.ls

Text File | 1998-11-18 | 366 b | 24 lines

on exitFrame
  go(the frame)
end

on keyDown
  case the key of
    ENTER, RETURN:
      doDefaultButton()
  end case
end

on doDefaultButton
  global gDefaultButton
  set cmd to the text of member "AlertCmd"
  tell the stage
    closeAlertWin()
  end tell
  set btnName to the text of member "AlertBtn"
  tell the stage
    do(cmd)
    return btnName
  end tell
end